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l'a trying to think but nothing happens! 

What would you think of your favourite coaputer if it kept on saying this to you? The above phrase is a direct 
steal froa a recently acquired public doaain disk which included the archived file "play.arV The PLAY coiiand, 
written by Kevin Darling and aodified by Brian C. Uhiie, will play aost Mac and Aiiga sound files. The coiiand 
■play think 1 will result in that phrase coaing froi your uonitor speaker. GREAT! 

Yes, we do have sore public doaain prograaaes thanks to the efforts of Don Berrie, Bob Devries and the cooperation 
of aeabers of overseas OSS user groups. The files obtained are aostly in the AR archive foraat. The AR utility, by 
Carl Kreider, is loosely lodelled on the archive utility in the Kernigan & Plauger book, "Software Tools" and its 
purpose is to gather together files into a coaaon file to keep related files together. The files included in an 
archive typically include the executable todule, source code .doc files, readae and any other related instruction 
files. 

All the public doaain library files are available by following the usual procedure. That is, aail your FORMATTED 
disks to address shown on the newsletter cover, include payaent of our copy fee of $2 per disk (all disk foraats 
3555. 40ds and SOds attract the saae charge) plus payaent for return postage, ye can also copy to three and half 
inch OSS disks if required, or even MSDQS 360k disks (if you really want to do that). 

We do incur costs in obtaining PD aaterial. even though there say be no direct charge for the prograaaes, and the 
copy fee is designed to share these costs. 

'Je do sanaqe to deal with your requests for disk copies fairly proaptly aost of the tiae, however due to other 
coaaitaents, a week or so say soaetiaes slip by. The easier you sake it for us f the quicker we can return aail 
your disks. Please include a self addressed label, postage stasps for return aail and use a sailer or package 
which we can reuse for return. This seans that we can repack the copied disks back in your sailer, stick on your 
address label and staaps, and pop it in a aail box. 

Most of the PD is stored on 30 track double sided disks, and if we can siaply do a backup, this also speeds things 
up. 

Now the question on your lips is; What PD prograaaes do we have and how aany disks are needed? Very good 
question! The probles of indexing and listing the prograaaes in a aeaningful way is a problea to which we do not 
have an ideal answer at this point. 

The newly acquired aaterial was sourced froa the European 0S9 User Group and caae on twenty-eight (28) 40tr OS plus 
three (3) 30tr DS disks. There appears not to be any particular order to the type of file, and files are aostly in 
the root directory of each disk. tfe will need a period of grace to sort through these disks if particular 
prograaae types are sought. Ue are, however, aost grateful for the aaterial. 

ye also have a nuaber of disks froa the U.S. 0S9 User Group in the original foraat. Diskl through Disk42 (with a 
couple aissing). These were issued on 35tr single sided disks, and are now in the library on 30 track disks under 
a directory for each issue, eleven 30tr disks in ail. The saae files have also been sorted into categories, eg. 
tford Processing, Coaaunication etc., nine 80tr disks in all. These disks are now a few years old and do not 
contain any prograaaes specifically for level 2. Soae 0S9 63k is included. 
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All in all there is enough laterial to keep anybody busy for lonths even if it is somewhat of a lucky dip at the 
loient. We will include soie cofetent and review of the tore interesting prograwes in our future newsletters for 
those who wish to be selective. 

"Things are certainly starting to happen in the DS9 World! 1 That was the opening statement of last month's 
editorial which dealt with new 039 lachines. The new OSS programmes being advertised overseas together with the 
increasing volumes of PD software certainly add weight to that stateient. 

To keep the ball rolling we can add our bit, even if it seems but a drop in the ocean. We desperately need 
Australian produced commercial prograsiaes and public domain laterial. The a is of the National QS9 User Group is to 
promote the use of 0S9 on a non-profit basis, so please assist us by sharing any programme of your own which you 
are prepared to release as public domain or shareware. Many of our members want to see more Basic09 programses. 
Can you help? 

Also to keep the ball rolling, and to maintain supply of PD software from overseas sources, we do need to send 
something in return. Your little BasicOS programme or utility could spread throughout Australia, Europe and 
America. 

SUBSCRIPTIONS:- Membership of the National OS'9 User Group is still only $18 per annum. Sincere thanks to those 
who have already sent a cheque for membership renewal. 

Ue saintain a common expiry date of end August each year, and we do need your continued support to avoid a rise in 
fees. 

PLEASE, PLEASE, PLEASE take the Use to include a short note with your subscription renewal and tell us what you 
would like to see in this newsletter; also tell us what you don't like. Please sake your cheque payable to 
"National 0S9 User Group" 

JUST A REMINDER:- We do not accept PAID advertising (subscriptions lust cover all costs) however, we will include 
ads frog senders for locally produced hardware or software, and ads (unpaid) from commercial enterprises, only if 
we consider such an ad would be 8 a service to members". 

I'm trying to think but STILL nothing happens! Cheers, 6ordon. 

ooooooooooOOOOOOODOOoooooooooo 



CC3G0 AND SHELLPLUS 

The modified shell programme , Shellplus (Version 2.xx and onwards) gives us all kinds of nifty 

opportunities to get better productivity fro* our CoCo 0S9 systems. One of those nice things that shellplus offers 

is the ability for the user to set a search path for executable files. This allows the system to examine a number 
of directories, not just the current execution directory, for executable files. 

Siailarly, the user has the opportunity to use a prompt other than the standard 0S9 system prompt. It is 
possible for the user to actually modify the shellplus executable file, and hardcode the desired proipt within the 
shellplus code. However-, we are all aware of the problems caused by hard coded device names, parameters etc, and 
of course they all have the drawback that they then cannot be easily changed. 

Because of the way that OSS Level 2 for the CoCoS forks the startup file from it's specific sysgo module 
(called ccSgo). unless you actually hard coded the paths into that aodule, you would not normally be able to have 
any paths or custom prompts set, on your /Term device. 

To attempt to get around this limitation, we are now able to offer, as part of our public detain library, 
an archived set of files containing a replacement nodule for ccSgo. written by Bob Devries and Don Berrie. This 
new nodule tries to open a one-line file called /dd/SYS/config.osS, and expects to find in that file the paraieters 
required for the shell which it opens on the default device (normally /Term). 
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Included in the archive is also a sample config.os9 file as an exaaple. If the file is cannot be found, an 
error aessage is printed. Siailarly, if the systea cannot read the file t an error message to indicate this problei 
is also printed. In either case, the systea then siaply uses the standard default paraaeter i=/1 as in the 
original cc3go aodule. 

For those users who have a Burke & Burke hard drive with the H-ROM installed in the interface, and wish to 
use the alternate boot feature of that systea, we have also included a aodule called cc3go.alt. This aodule looks 
for files naaed /dd/SYS/config.alt, altstart, and altshell rather than /dd/SYS/conf ig.os9, startup and shell. This 
will allow you to have two totally different bootfiles on your hard drive. 

The source code, fully coaaented, for both aodules is also included. 

The usual National QS9 Users Group copying conditions apply. Any coaaents or requests for further 
inforaation should be directed to the authors: 

Bob Oevries Don Berrie 

(07) 372781 S (07) 375 3236 

ooooooooooOOOOOOODOOoooooooooo 

HOW COME MY BOOT PROCESS TAKES SO L0N6? 



Ever wanted to know what is happening while you are sitting there looking at that green VD5 screen with 0S3 BOOT 
written in the middle of it? 'Jell read on. 

This inforaation cofses froa the QS9 "super guru 9 Kevin Darling, and is reproduced with thanks. 

The QS9 Boot sequence is as follows: 

The DOS routine in RSDOS, or soae other type of custoa ROM, points to a track (noraaily Track 34) on a disk drive, 
and reads that track, which has REL, BOOT, and 0S9P1. 

REL sets up the sain SIHE registers and the systea crash/ reset vectors, and then bypasses Boot to execute the 0S9P1 
aodule. 

BS3pl sets up Direct Page variables, F$ systea calls, finds free RAH, and scans RAM for aodule headers. It- 
then inserts found aodules (at this stage Rel, Boot and 0S9pl) into the aodule directory; and looks for the Init 
aodule. QS9pl can't find Init, because it has not as yet been loaded froa the disk, so it does an internal F$Boot. 
FSBoot caiis the Boot aodule, which thopefullyt loads the bootfile froa disk. F$Boot is not particularly saart, 
and aaongst other things, requires that the bootfile is in one single contiguous block. QS9pl then links to 0S3p2 
and juaps to it. 

QS9p2 installs its Flcalls, and then looks in Init tor its default execution and data directories, and atteapts to 
change to thea using IIChgDir. !$ChgDir fails because no I$calls are as yet installed, so 0S9p2, by default, finds 
lOMan and initializes it, and IJChgDir is tried again. QS9p2 opens a path to the default device (usually /tera, 
but hard coded into the Init aodule.) 

0S3p3 is then looked for, and, if found, it is called as a subroutine. (If QS9p4 is present it is called froa 
QS9p3 ... ietc) 

Once the user defined extensions to 0S3 (DS9p3, 0S9p4 .... ) have been called and executed, QS3p2 then checks Init 
for the initial process naae (CC3Go), and executes it using an F$Fork call. It then does an FINProc call which 
doesn't return, 

CC3Go prints the "0S3 LEVEL 2 .... ' signon aessage, and sets the default tiae (setiae causes 0S9p2 to find the 
Clock aodule and init it at this tiae), which is also hard coded into the CCSGo aodule. 
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CCSSo at-ieapts to change directories to /hO. If successful, it nodif ies the systea process descriptor to also use 
/hO (for calling in grfdrv later, etc). CC3So tries to fork "shell startup" and waits until the startup process 
has completed. CC3So then tries to fork "autoex" and if found will sit and wait until the execution of this 
prograsise terminates. 

CC3Go then chains (which neans that it terei nates itself, and starts a new process) to the Shell on the default 
window defined in the Ir.it nodule. (This shell is not started froa the startup procedure, hence only the preset- 
shell parameters, which are hardcoded into CCSGo, are set for this shell). 

Then, you finally get control of the system. Hhew! 

ooooooooooOOOOQOOOOOoooooooooo 

BUILD INS A BOOT DISK Part 2 

If you followed part I in last month's News Letter, you should have a sysien disk that is configured to take 
advantage of the naxinun capacity of your disk drives. 

As promised I sill explain how to build a customized system disk using only the modules supplied on the original 
Level 2 systes disk.... So Boot up your systea. Hake sure you are using a copy of your systen disk in drive /dO. We 
need to create a MODULES directory on this disk and copy into it the nodules needed for your Systen Disk. 

Hakdir /dO/HODULES 

By now you should have decided which modules you require in your Boot file, if not, Bake yourself a list now. Place 
a backup copy of your Boot-Conf ig-BasicOS disk in drive /dl and copy the files you require into the nodules 
directory on the disk in /dO. 

chd /dO /nodules 

copy /di/nodules/CCSDisk.dr CCSDisk 
copy /dl /itodules/c lock . SOhz Clock 
copy /d!/nodules/d0_40d.dd dO 
copy /dl/fijodules/dd_40d.dd dd 

etc 



Until you have all the nodules required to create your new boot disk. It is a bit tedious, but once done, you 
shouldn't have to do it again. You can add, delete or change nodules as your system requirements change. You will 
have noticed that I left the extensions off the files I copied, they are not needed. 

While I did state that we wouldn't be using anything that was not on the original system disks supplied by Tandy, 
should you have the "save" connand fron Level 1 or fron the Development System disks, then to save sone tine I 
would suggest you save the nodules fron nenory that you require, especially those nodules that have been patched. 

chd /dO/iodules 
save dO 

save di 
save dd 

etc 



The nodules directory can contain as tany files as you wish, it is not restricted to only the files required on a 
particular Boot Disk. It will be a permanent source for creating different Boot Disks when required. 

Now we need to create two files, the first is to be a file called "bootlist", which will contain a list of the 
nodules to be included in the new osSboot file. The other is the procedure file that will create the new 0S9Boot 
file, Ue will call this file "ne»_boot\ These files can be created by using the Build cossand or with Edit, or as 
I do with a word processor. 
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The list- of Bodule names in "boothst" should be in the order they are wanted in the Boot file. 

Boot list 

0S9p2 

IOHan 

RBF 

CC3Disk 

DO 

Dl 

DD 

etc.... 

Once you have created this boot list in the data directory of /dO, the next thing is to create the procedure file 
new_boot which must also reside in the data directory of /dO. 

Procedure Newjtoot 

t 

tsode .1 -pause 

chd /dO/eodules 

osSqen /dl </d0 /boot list 

chd"/dO 

dsave /dO /dl ! shell 

Uode . 1 ' pause 



Nois with a formatted disk in /dl type new_boot then press enter and a new bootdisk will be created that includes 
only those files listed in Boot-list . The two lines Chd /dO and dsave /dO /dl ! shell can be removed if you don't 
want the directories and files on /dO copied to the new boot disk. You can copy these files fro» any source you 
choose, bearing in iind that shell and firfDrv Bust be in the comsands directory otherwise the boot will fail. Once 
the boot disk is completed, you. can boot up with the new systes disk and then iake the necessary patches etc. 
according to last sonths' article. 

During the writing of this article I have come to realise just how far we have progressed since OSS Level 2 was 
first released. An overview of the ^edifications being used by the Brisbane User Group Members eight be in order. 

Regards Rob Unsworth. 

ooooooooooOOOOOOOOOOoooooooooo 

Check Book Programme. 
Prograsae by Dale L. Puckett, comments by Bob Devries. 



Here's a short BasicOS programme to assist in balancing your checkbook. The programme case to us by- 
courtesy of the European OSS Usergroup, and originated froa Conpu-Serve Information System. The source is very 
short and easy to understand. It requires no special software (except BasicOS of course) and should work on both 
level one and level two OSS systems. 

Bob Devries. 
PROCEDURE Checkbook 

0000 it Something to Help balance your checkbook t) 

002E 

002F DIM answer r clearcode:STRINb[l] 

003F DIM balance, service_charges:REAL 

004A DIM total_checks ( outstanding_deposit5:REAL 
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0055 DIM nuftber_of _checks r nuftber_of _dep05i ts; INTEGER 

0060 

0061 clearcode:=CHR$(tOC) 

006A 

006B PRINT clearcode 

0070 

0071 PRINT 

0073 INPUT "What was the balance on the stateaent? B , balance 

00A2 INPUT "Uhat was the total of all service charges? B .service charqes 

00D5 

O0D6 PRINT clearcode 

00DB 

00DC nuBber_of_checks:=-l 

00E4 total_checks:=0 

00EC amount; =0 

00F4 

OOFS RUN getcheck5(nusber_of_check5,total_check5 ( aaount) 

0105 

010A PRINT clearcode 

01 OF 

0110 nuaber_of_depo5its:=-l 

0118 outstanding_depo5its:=0 

0120 aaount!=0 

1 2S 

0129 RUN ge tdepos i t-5 ( nu»ber_of _deposi ts , outstand i ng_deposi ts , amount) 

0I3D 

013E PRINT clearcode 

0143 

0144 PRINT 

0M6 PRINT ■Your final balance should be $\: 

0ISA PRINT USING 1 R8.2*" I balance+out5tanding_deposit5-(total checks+service_charges) 

0184 PRINT \ PRINT \ PRINT 

018fl PRINT "Fpoi your stateaent : " 

01A3 PRINT 

OlfiS PRINT "A balance of $ B ; 

01E3 PRINT USING B R8.2'\ balance; 

01CS PRINT "minus a service charge of $*; 

01E9 PRINT USING 'rS.2",5ervicejharges; 

01 FS PRINT " = $\ 

0202 PRINT USING a r8.2" l I balance-5emce_charges 

02 i 4 PRINT 

0216 PRINT "You had "; nuaber of checks; B outstandinq check(s), totalling $\ 

024D PRINT USING n r8.2 tB ,tota~l_checks 

025B PRINT "and "; nuitber_of_depo5its; 

0268 PRINT B deposit(s) outstanding, totalling; $■; 

0294 PRINT USING "rS.2*" .outstanding.deposits" 

02A2 PRINT 

02A4 

02AS 

G2AS INPUT "Would you like to balance another stateaent: (Y)es or (N)o? \ answer 

02EA 

02EB IF answer="Y" OR an5wer= H y" THEN 

0300 RUN checkbook 

0304 ELSE 

0308 PRINT 

030A PRINT "Hope we sere able to help you with your headache." 

033F END IF 
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0342 END 
0344 

PROCEDURE getchecks 

0000 PARAM nuiber.of .checks: INTEGER 

0007 PARAM total_checks ; aaount;REAL 
0012 

0013 PRINT 

0015 PRINT "Now we need to have you list the aiount of each check" 

004E PRINT "that was not listed on the bank's statement. 1 

007E PRINT 

0080 PRINT "Uhen you have listed all the checks enter a value of zero. 1 

00BE PRINT 
00C0 
00C1 

00C2 REPEAT 

00C4 INPUT "Aiount of check? " .aiount 

00DD nuiber_of_checks:=nuBiber_of_checks+] 

OOES total_checks:=total_checks+afiount 

00F4 UNTIL aiount=0 
0100 

0101 END 

PROCEDURE getdepos its 

0000 PARAM nuaber.of .deposits: INTEGER 

0007 PARAM outstanding_deposits,aiount:REAL 
00)2 

0013 PRINT 

0015 PRINT "You iust now list each deposit that did not show up" 

004C PRINT "on the bank statement. " 

0066 PRINT 
0068 

0069 PRINT "Enter a zero when all your deposits have been entered." 

00A3 PRINT 
00A5 
00A6 

00A7 REPEAT 

00A9 INPUT "Aaount of deposit? ",asount 

00C4 nuaber_of _deposi ts : =nuiber_of _deposi ts+1 

00CF outstandingjJeposits'^outstanding^deposits+aiount 

00DB UNTIL asount=0 

00E7 END 

ooooooooooOOOOOODOOOoooooooooo 

Uindow Directory 
prograsfae by Kevin Darling, text by Bob Devries 



More Basic 09 you say? Well OK. Here's a little utility written by Kevin Darling, and obtained by se via the 
European 0S9 coasunity fros the Couspu-Serve Information Systea. The prograsie displays a directory of the currently 
opened or INIZ'd windows in your systes. It tells you the entry nusber, the window type, which block the screen raa 
uses, the current working area, and the sixteen palette register contents. I have found it useful to find out what 
colours are set in each window. The programme is not very large, and uses various DS9 systei calls via the 
'SysCair utility. 

Bob Devries. 
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PROCED 


URE UDir 


0000 


REM Window Directory 


001 3 


REM Copyright by Kevin Darling Aug 37 


0037 


REM For Eacri Window WDir Shows: 


0055 


REH Window table entry 1 


OObC 


REM Window type 


007A 


REM Block numbers used, with offset into block if 1 block 


0OB2 


REM Back! ink window table 1 if overlay, and overlay buffer 


00EB 


REH block begin nueber. 


0101 


REM Window begin and size (col, row) numbers 


01 2B 


REM Window current- cwarea being and size 


0152 


REM Palette values (0-15) for that screen 


01 7A 


REM Really should be rewritten with recursive calls to 


OlfiF 


REM show all parent back links of eultiple overlay Vs. 


01E4 


REM Set Up Vars and Define Constants: 


0208 


BASE 


020A 


DIM tesp'.BYTE 


0211 


DIM w: INTEGER 


0218 


DIM yNui:BYTE 


021F 


DIM sctab: INTEGER 


0226 


TYPE register=CC;BYTE; 0: INTEGER; DP: BYTE; X,Y,U: INTEGER 


024B 


DIM req: register 


0254 


DIM UE(M5, : BYTE 


0260 


DIM SysPrc(512);BYTE 


026C 


DIM D.DevTbl: INTEGER 


0273 


TYPE "table=V_Driv ! y_Stat,y_Desc 1 V_FHqr: INTEGER; V_Usrs:BYTE 


0230 


DIM devtable(32):table 


029E 


DIM DrvNa»e;STRING[5] 


026A 


DIM DevNanelSTRINGU] 


0266 


DIM M_Na»e: INTEGER 


02B0 


DIM cc3io:STRINGE51 


02C3 


DIM SC(32):BYTE 


0205 


DIH typ$(9) 


02DF 


DIM F_GFrDsc:BYTE 


02E6 


DIM F_CpyHe«:BYTE 


02E0 


cc3io="CC3I 8 +CHR$($CF) 


02FD 


F_GFrDsc=$18 


0305 


F_Cpyi1ea=$iB 


030D 


FOR n=0 TO 8 


031F 


READ typ$(n) 


0323 


NEXT n 


0334 


DATA "Sase Screen' 


0346 


DATA "40 Col Text" 


0358 


DATA "80 Col Text' 


036A 


DATA "Bad" 


0374 


DATA "Bad" 


037E 


DATA "640 Two Color' 


0332 


DATA "320 Four Color 


Oori/ 


DATA "640 Four Color" 


03EC 


DATA "320 Sixtn Color" 


0302 


REM Get SysPrc Descriptor: 


03EB 


req. 0=256 


03F7 


reg.X=ADDR(SysPrc) 


0405 


RUN Syscal l(F_SPrDsc f reg) 


0414 


REM Get Offset in Systei Hap to Device Tables: 


0441 


destination=ADDR(D_DevTbl) 


044C 


count=2 


0454 


of fset=*30 
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0450 GOSUB 1000 

0461 REM Now Use that Info to Set the Device Table It-self: 

0435 destination=ADDR(devtable) 

04AG count=SIZE(devtable) 

04AB offset=D_DevTbl 

04B4 GQSUB 1000 

04BS REH fla in Loop: 

04C5 REH Check Each Device Entry for CC3I0 Driver. 

04F1 REH If it is, then Get the Window Entry * Fro» Static Storage. 

052E REH (unless type <> window, then treat as VDG) 

055B REM (and skip deleted entries) 

0578 FOR DE=0 TO 31 

058A REM Check for Entry in Use: 

05A4 IF devtable(DE}.VJJsr5<>0 THEN 

05B7 REM Set Driver Nase Offset In Descriptor: 

05DF destination=ADDR(H_Naie) 

05EA count=2 

05F2 offset=devtable(DE).V_Driv+4 

0605 50SUB 1000 

060? REM And Then the Naie Itself: 

0625 destinalion=ADDR(DrvNa»e) 

0630 offset=M_Nafie+devtab!e(DE).V_Driv 

0644 count=5 

064C 60SUB 1000 

0650 IF DrvNaae=cc3io THEN 

065D GGSUB 500 

Obbl END1F 

0663 ENDIF 

0665 NEXT DE 

0670 PRINT H d 

063B END 

069D 500 rem ttttmmmtmmtxttmtmt 

06C3 REM Print yindow Entry This Device: 

06E5 destination=ADDR(H_Nane) 

06F0 offset=devtable(DE").V_Desc+4 

0703 couni=2 

070B S0SUB 1000 

070F destination=ADDR(DevNaie) 

071 A offset=H_Nase+devtable(DE:i.V_Desc 

072E counts " 

0736 S0SUB 1000 

073S PRINT ■ ■; 

0767 nt=" 

076E FOR c=l TO 4 

0780 i$=HlD$(D£vNaf&e,c,l) 

07SF EXITIF ASC(t$)>128 THEN 

073C t$=CHR$(ASC(t$H28) 

07A3 n$=n$+t* 

07BS ENDEXIT 

07B3 n$=n$+tt 

07C5 NEXT c 

07D0 PRINT n$ 

0705 REH Check Device Static Mesory For Type: 

07FC de5tination=ADDR(te»p) 

0307 of f set=$06+devtable(0E) .VJtat- 

03IB count=l 

0323 GDSUB 1000 

0827 IF LAND($80 f tesp)=0 THEN 
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0837 


PRINT "VDG Screen" 




0845 


RETURN 




0847 


ENOIF 




0843 


REM Else Get Window Entry* Fros Static Hea: 




0873 


destination=ADOR(VNun) 




087E 


of fset=*35+devtable(DE). V.Stat 




0892 


count=l 




083ft 


SOSUB 1000 




089E 


«=WNus 




08A6 


offset=$1280+»t64 




08B6 


count=64 




08BE 


destination=ADDR(UE) 




0SC3 


60SUB 1000 




08CD 


sctab=VE(0)«56+yE(l) 




08E1 


PRINT "Entry! "; v 




08F0 


IF LAND(5ctab,*FF00)=*FF00 THEN 




0901 


IF LAND(sctab,$FF)=$FE THEN 




0912 


PRINT B Iniz'd H 




091 C 


ELSE 




0920 


PRINT "!! DEINI2 or DWSET THIS DEVICE '! B 




0945 


ENDIF 




0947 


ELSE 




0948 


offset=sctab 




0954 


coimt=32 




09SC 


destination=AQDR(SC) 




0967 


SOSUB 1000 




096B 


PRINT "Window Type : B : 




097D 


*type=SC(0) 




0988 


IF wtype=$FF THEN 




0936 


PRINT "Iniz'd" 




09A0 


RETURN 




03A2 


ENOIF 




09A4 


IF wtype>$30 THEN 




0382 


wtype=S87-»type 




09BF 


CI Of 




09C3 


wtype=*type+4 




09CF 


ENDIF 




09D1 


PRINT USING "i3> B ,wtype: 




09DE 


PRINT " B ; typ$(wtype) 




09F2 


REM PRINT "Screen Table: B ; 




0A0D 


REN PRINT USING "h4\sctab 




0A26 


PRINT "Block Nuitber: "; 




0A39 


PRINT USING H h2 fl ,SC(l); 




0A47 


IF ¥type>2 THEN 




0A54 


PRINT B - B ; 




0A5A 


IF wt-ype=5 OR *type=6 THEN 




0A5F 


PRINT USING "h2" f SC(1)+l 




0A7F 


ENDIF 




0A81 


IF wtype=7 OR wtype=8 THEN 




0A96 


PRINT USING B h2" J SC(l >+3 




0AA6 


ENOIF 




0AA8 


ELSE 




OAAC 


PRINT B Offset; B ; 




0AC1 


PRINT USING "2(h2)\VE($34)-t80; WE($35) 




0AD0 


ENDIF 




0ADF 


IF WE(2X>$FF THEN 




0AEE 


PRINT "Parent Entry: \: \ PRINT USING "i2>" 


,WE(2) 


0B1O 


PRINT " Overlay "; 
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0825 PRINT USING "h2\UE($21) 

0B33 ENDIF 

0B35 PRINT "Window Start; "; VE($36)| V; WE(«7); ' "; 

0B61 PRINT ■ Size : B : WE(*33;; \\: UEU33) 

0B81 PRINT "CWArea Start: '; VE($05); V; WE($06); 

0BA6 PRINT ' Size : B ; WE($07); V; UE(S08) 

OBCA FOR prn=0 TO 7 

OBDC PRINT USING B h2 H 1 SC(16+prn): 

OBFO PRINT B ■; 

0BF6 NEXT prn 

0C01 PRINT 

0C03 FOR prn=8 TO IS 

0C15 PRINT USING "h2\SC(J6+prn); 

0C29 PRINT • "; 

0C2F NEXT prn 

0C3A PRINT 

0C3C ENDIF 

0C3E RETURN 

0C40 1000 REM Copy count at offset in datiiage to destination: 

0C76 reg.D=ADDR(SysFre)+$4Q 

0C88 reg.Y=count 

0C95 reg.X=offset 

0CA2 reg.U=desti nation 

OCAF RUN Syscall(F_CpyHes f reg} 

OCBE IF LAN0( peg. CC f $01)00 THEN 

0CD1 PRINT "Error ■ 

OCDB PAUSE 

OCDO END 

OCDF ENDIF 

OCE? RETURN 

0CE3 

ooooooooooOOOOOOOOQOoooooooooo 



COCO-LINK Magazine: Just a rewinder fop those interested in a wider section of CoCo systeas. CoCo-Link is 
produced in South Australia and is well worth your support. Contact the Editor, Robbie Dalzell, on (OS) 386 1647 or 
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CoCo-Link 
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